Function ISSHEET(Ʈ As String) As Boolean

    Dim Ʈ As Worksheet
    
    On Error Resume Next
        
        Set Ʈ = Worksheets(Ʈ)
        
        ISSHEET = (Err.Number = 0)

End Function